home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Other / list-a-scale < prev    next >
Encoding:
Text File  |  1998-10-22  |  676 b   |  36 lines  |  [TEXT/MSWD]
  1. list-a-scale start length
  2. &key (scr 1) (type 0)
  3.  
  4. legal types are 0 :pal and :rev
  5.  
  6. a simple little function that I use a lot to produce
  7. scales of symbols or integer-lists
  8.  
  9. (list-a-scale 'a 12)
  10. ->(a b c d e f g h i j k l)
  11.  
  12. (list-a-scale 0 12)
  13. ->(0 1 2 3 4 5 6 7 8 9 10 11)
  14.  
  15. (list-a-scale 0 12 :scr 3)
  16. ->(0 3 6 9 12 15 18 21 24 27 30 33)
  17.  
  18. type :pal makes a palindrome
  19.  
  20. (list-a-scale 0 5 :scr 2 :type :pal)
  21. ->(0 2 4 6 8 6 4 2 0)
  22.  
  23. (list-a-scale 0 5 :type 'foo-)
  24. ->(foo-0 foo-1 foo-2 foo-3 foo-4)
  25.  
  26. type :rev reverses the list
  27.  
  28. (list-a-scale 0 5 :type :rev)
  29. ->(4 3 2 1 0)
  30.  
  31. with a symbol you create names
  32.  
  33. (list-a-scale 'a 7 :scr 3 :type 'foo)
  34. ->(fooa food foog fooj foom foop foos)
  35.  
  36.